home *** CD-ROM | disk | FTP | other *** search
/ Amiga CD-Sensation: Golden Games / Amiga CD-Sensation - Ausgabe 2 - Golden Games (1996)(GTI - Schatztruhe)(DE)[!].iso / Adventurer's / ImpPro / Scripts / Demo.dungeon < prev    next >
Text File  |  1995-07-13  |  1KB  |  79 lines
  1. /* Sample script for the dungeon module */
  2.  
  3. options results
  4. address IMPDUNGEON.1
  5.  
  6. CLEAR
  7. SETBRUSH 1
  8.  
  9. say 'Setbrush: ' RESULT
  10.  
  11. REGION 0 0 8 8
  12.  
  13. say 'Region: ' RESULT
  14.  
  15. HALLWAY 9 9 17 17
  16. HALLWAY 17 9 9 17
  17.  
  18. say 'Hallway: ' RESULT
  19.  
  20. SETBRUSH 6
  21. REGION 0 9 8 17
  22.  
  23. x = 17
  24. y = 0
  25.  
  26. do 9               /* Draw a diagonal hallway */
  27.    SETBRUSH 2
  28.    PAINT x y
  29.    SETBRUSH 5
  30.    PAINT x+1 y
  31.    x = x - 1
  32.    y = y + 1
  33. end
  34.  
  35. x = 9
  36. y = 0
  37.  
  38. do 9               /* Draw another diagonal hallway */
  39.    SETBRUSH 4
  40.    PAINT x y
  41.    SETBRUSH 3
  42.    PAINT x+1 y
  43.    x = x + 1
  44.    y = y + 1
  45. end
  46.  
  47. say 'Paint: ' RESULT
  48.  
  49. SETBRUSH 29
  50. HALLWAY 0 9 8 17
  51. HALLWAY 8 9 0 17
  52.  
  53. FRAME TEST
  54.  
  55. say "FX0: " TEST.FX0
  56. say "FY0: " TEST.FY0
  57. say "FX1: " TEST.FX1
  58. say "FY1: " TEST.FY1
  59.  
  60. CLEAR
  61. FRAME TEST
  62.  
  63. say "FX0: " TEST.FX0
  64. say "FY0: " TEST.FY0
  65. say "FX1: " TEST.FX1
  66. say "FY1: " TEST.FY1
  67.  
  68. address IMPPRO.1
  69. 'REQUESTER "Dungeon Demo" "This is an example requester" "Wow|Nifty"'
  70.  
  71. say 'Requester: ' RESULT
  72.  
  73. 'HELP "ImpPro:ImpPro.guide"'
  74.  
  75. say 'Help: ' RESULT
  76.  
  77. address IMPDUNGEON.1
  78. 'LOAD ImpPro:Save/test.dun'
  79.